home *** CD-ROM | disk | FTP | other *** search
/ Mac Magazin/MacEasy 19 / Mac Magazin and MacEasy Magazine CD - Issue 19.iso / Grafik & Text & Film / Quark XTensions / Freeware Xtensions / XPress Scripts 1.0 / Make Pages as EPS / Make Pages as EPS next >
Text File  |  1994-08-11  |  3KB  |  78 lines
  1. tell application "QuarkXPress 3.3"
  2.     activate
  3.     if document 1 exists then
  4.         tell document 1
  5.             set docName to the name
  6.             set pageNum to the count of pages
  7.             
  8.             if pageNum < 10 then
  9.                 set fileNameLength to 25
  10.             else if pageNum < 100 then
  11.                 set fileNameLength to 24 --thanks to Quark Inc. for the file name length
  12.             else if pageNum < 1000 then --routine, from "Save Pages as EPS" script, from "Quark AppleScript Scripts" 
  13.                 set fileNameLength to 23
  14.             else
  15.                 set fileNameLength to 22
  16.             end if
  17.             copy (display dialog "Make EPS files from document" & return & "'" & docName & ¬
  18.                 "' with pages:" buttons {"Cancel", "All pages", "Selective..."} default button 2 with icon 2000) to x
  19.             do updates
  20.             if button returned of x is "Selective..." then
  21.                 copy (display dialog "Enter pages:" default answer "" with icon 2001) to dlog2
  22.                 if (count of characters in docName) ≤ fileNameLength then
  23.                     copy (choose folder with prompt "                  Save Pages as EPS files to:") to hardDisk
  24.                     do updates
  25.                 end if
  26.                 copy text returned of dlog2 to dlog2Text
  27.                 copy every character of dlog2Text as list to y
  28.                 try
  29.                     repeat with i from 1 to count of items in y
  30.                         if item i of y = "," then
  31.                             set item i of y to " "
  32.                         end if
  33.                     end repeat
  34.                     copy y as text to y
  35.                     set view scale to "100%"
  36.                     repeat with i from 1 to count of words in y
  37.                         copy word i of y to z
  38.                         save page z ¬
  39.                             EPS format Mac Color ¬
  40.                             include preview ¬
  41.                             "true" EPS data binary EPS OPI ¬
  42.                             include images ¬
  43.                                 in ("" & hardDisk & docName & ".eps/" & z)
  44.                     end repeat
  45.                     display dialog "Make EPS files done." buttons {"  Okay  "} default button 1 with icon 2001
  46.                     do updates
  47.                 on error errMsg
  48.                     beep
  49.                     display dialog "Invalid entry. ‘" & dlog2Text & "’ cannot be used." buttons {" Okay "} default button 1 with icon 2
  50.                     do updates
  51.                 end try
  52.             else if button returned of x is "All pages" then
  53.                 if (count of characters in docName) ≤ fileNameLength then
  54.                     copy (choose folder with prompt "                  Save Pages as EPS files to:") to hardDisk
  55.                     do updates
  56.                 end if
  57.                 set view scale to "100%"
  58.                 repeat with i from 1 to pageNum
  59.                     save page i ¬
  60.                         EPS format Mac Color ¬
  61.                         include preview ¬
  62.                         "true" EPS data binary EPS ¬
  63.                         OPI include images ¬
  64.                         in ("" & hardDisk & docName & ".eps/" & i)
  65.                 end repeat
  66.                 display dialog "Make EPS files done." buttons {"  Okay  "} default button 1 with icon 2001
  67.                 do updates
  68.             else
  69.                 display dialog "The name '" & docName & "' is too long for use by this script." buttons "OK" default button 1 with icon 0
  70.                 do updates
  71.             end if
  72.         end tell
  73.     else
  74.         beep
  75.         display dialog "This script requires an" & return & "open QuarkXPress document." buttons "OK" default button 1 with icon 1
  76.         do updates
  77.     end if
  78. end tell